200 PRINT"[147][159]";:POKE53272,21:POKE53280,0:POKE53281,0 201 PRINT" A TPUG EDUCATIONAL PROGRAM":GOSUB591 202 PRINT" [146]"; 203 PRINT" [146]"; 204 PRINT" [146]"; 205 PRINT" ENGLISH - CONTEXT [146]"; 206 PRINT" [146]"; 207 PRINT" EXERCISE 1 [146]"; 208 PRINT" [146]"; 209 PRINT"[159] [146]"; 210 PRINT" [146]":GOSUB591:GOSUB560 211 PRINT" INSTRUCTIONS? Y/N [151]T" 212 GETR$:IFR$<>"Y"ANDR$<>"N"ANDR$<>"T"THEN 212 213 IFR$="Y"THENGOSUB400 214 IFR$="T"THEN2200 215 PRINT"[147][153] WHAT IS YOUR NAME?":GOSUB560:GOSUB590 216 INPUT N$ 217 PRINT"[147][153] AND AWAY WE GO........":GOSUB591:GOSUB500:GOSUB590 218 GOTO1000 235 GOSUB591:GOSUB560 236 PRINT"[154] PRESS SPACE BAR TO CONTINUE [146][155]" 237 GETUI$:IFUI$<>" "THEN237 238 RETURN 240 GOSUB592:GOSUB500 242 PRINT"[154][208]RESS SPACE BAR TO CONTINUE[146]" 244 GETU$:IFU$<>CHR$(32)THEN244 246 RETURN 299 : 400 PRINT"[153][147]":POKE53281,0:POKE53280,0 431 PRINT" THIS IS A WORD GAME FOR GRADE 4 PUPILS." 432 PRINT" A SENTENCE WILL BE SHOWN BUT A WORD WILL BE MISSING. 434 [153]" A LIST OF WORDS WILL BE SHOWN IN" 435 [153]" THE MIDDLE OF THE SCREEN." 436 [153]" CHOOSE THE WORD THAT WILL FINISH" 437 [153]" THE SENTENCE AND MAKE SENSE." 441 [153]" AFTER YOU TYPE IN THE WORD, PRESS  RETURN WAIT":[141]592 442 [153]" NOW, LET'S LOOK AT AN EXAMPLE." 443 [141]235 444 [153]"LOADOPEN BETTY WENT TO THE ---- TO SEE A MOVIE.":[153]" ? SPC(" 445 [153]" YOU MUST SELECT A WORD FROM THE LIST TO FILL IN THE BLANK.ONONOPEN" 446 [141]2300:[153]"":[141]235 447 [153]"LOADOPEN TO DECIDE WHICH WORD IS CORRECT " 448 [153]" READ THE SENTENCE WITH EACH WORD" 449 [153]" AND THEN DECIDE WHICH WORD IS THE BEST ANSWER." 450 [153]" WHEN YOU HAVE MADE YOUR CHOICE, TYPE 451 PRINT" IN THAT WORD AND PRESS  RETURN [146]." 453 GOSUB235 454 PRINT"[159][147] BETTY WENT TO THE ---- TO SEE A MOVIE." 455 PRINT" ? [158]THEATRE IS THE CORRECT CHOICE.[159]":GOSUB2300:PRINT"" 495 GOSUB235:RETURN 499 : 500 REM 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT 510 POKE54296,15:POKE54277,42:POKE54278,250 515 POKE54276,23:POKE54273,23:POKE54272,191 520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT 525 POKE54296,0:RETURN 530 REM 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT 540 POKE54296,15:POKE54277,18:POKE54278,242 545 POKE54276,33:POKE54273,4:POKE54272,48 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT 555 POKE54296,0:RETURN 560 REM 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT 570 POKE54296,7:POKE54277,42:POKE54278,250 575 POKE54276,23:POKE54273,23:POKE54272,191 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT 585 POKE54296,0:RETURN 590 FORTM=1TO500:NEXT:RETURN 591 FORTM=1TO1000:NEXT:RETURN 592 FORTM=1TO2000:NEXT:RETURN 593 FORTM=1TO3000:NEXT:RETURN 999 : 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0 1005 C=8:H=0 1010 FORJ=1TOC 1015 READA$,B$ 1020 PRINT"[152][147] ED-25 1 [156]"TAB(14)""N$TAB(32)"[155]STEP:"H 1025 PRINT" ";A$ 1030 GOSUB2300:GOSUB560 1035 INPUT"[158] >>> ";SX$ 1040 IFSX$=B$GOTO1075 1045 IFZ=2THENPRINT"[153][145] THE CORRECT WORD IS [158]"B$:H=H+1:GOSUB530:GOSUB592 1050 IFZ=2THENPRINT"":GOSUB235:GOTO1080 1055 Z=Z+1:H=H+1 1060 PRINT"[150] NO, TRY AGAIN! ":GOSUB530 1070 GOSUB592:GOTO1020 1075 H=H+1:PRINT""SPC(24)"[158]CORRECT!":GOSUB500:GOSUB592 1080 Z=0:NEXTJ 1099 : 2000 PRINT"[147]YOU HAVE NOW FINISHED EXERCISE 1.":GOSUB591:GOSUB560 2005 PRINT"YOU HAVE ANSWERED 8 QUESTIONS" 2010 PRINT" IN"H"ATTEMPTS." 2020 IFH=8THENPRINT"[158] EXCELLENT! [146]":GOTO2050 2030 IFH=9THENPRINT"[159] GOOD WORK! [146]":GOTO2050 2040 PRINT"[150] TRY HARDER! DO IT AGAIN! [146]" 2050 PRINT"":GOSUB235 2055 PRINT"[153][147]YOU HAVE A CHOICE: 2060 [153]"PRESS  R WAIT TO REPEAT EXERCISE 1 2062 PRINT"PRESS  G [146] TO GO TO EXERCISE 2 2064 [153]"PRESS  M WAIT TO GO TO THE DISK MENU 2066 GETR$:IFR$<>"R"ANDR$<>"M"ANDR$<>"G"THEN2066 2070 RESTORE 2072 IFR$="R"THEN200 2074 IFR$="G"THEN2090 2080 PRINT"[147] RETURNING TO THE DISK MENU 2082 [147]"MENU",8 2084 [138] 2086 [128] 2090 [153]"LOAD GOING TO EXERCISE 2 2092 LOAD"EXERCISE 2",8 2094 RUN 2096 END 2099 : 2100 GOSUB235:POKES1,0:RETURN 2110 DATAJOE LOST HIS ---- AND FELL OFF THE FENCE.,BALANCE 2115 DATAGEORGE TRIED TO ---- THE BIG STICK INTO THE HOLE.,RAM 2120 DATATHE LEAVES ---- WHEN THE WIND BLOWS.,FLUTTER 2125 DATATHE GENERAL WAS CALLED A ----.,HERO 2130 DATATHE ---- IS BAD IN LAKE ONTARIO.,POLLUTION 2135 DATATHERE WAS A DEEP ---- IN THE MOUNTAINS.,GORGE 2140 DATAATHENS IS AN ---- CITY IN GREECE.,ANCIENT 2145 DATAWE WENT TO THE ---- TO SEE A PLAY.,THEATRE 2199 : 2200 PRINT"[147] HERE ARE THE WORDS IN UNIT 4-1:[155]":GOSUB560:GOSUB593: 2210 PRINT" 1. JOE LOST HIS [158]BALANCE[155] AND FELL OFF THE FENCE. 2220 [153]" 2. GEORGE TRIED TO SYSRAMLIST THE BIG STICK INTO THE HOLE. 2230 PRINT" 3. THE LEAVES [158]FLUTTER[155] WHEN THE WIND BLOWS. 2240 [153]" 4. THE GENERAL WAS CALLED A SYSHEROLIST. 2250 PRINT" 5. THE [158]POLLUTION[155] IS BAD IN LAKE ONTARIO. 2260 [153]" 6. THERE WAS A DEEP SYSGORGELIST IN THE MOUNTAINS. 2270 PRINT" 7. ATHENS IS AN [158]ANCIENT[155] CITY IN GREECE. 2280 [153]" 8. WE WENT TO THE SYSTHEATRELIST TO SEE A PLAY. 2290 GOSUB235:GOTO200 2299 : 2300 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]" 2310 PRINT"[159] CHOOSE YOUR ANSWER FROM THE FOLLOWING:[153]" 2320 PRINTSPC(12)" HERO ":PRINTSPC(12)" THEATRE " 2330 PRINTSPC(12)" BALANCE ":PRINTSPC(12)" FLUTTER " 2340 PRINTSPC(12)" RAM ":PRINTSPC(12)" ANCIENT " 2350 PRINTSPC(12)" POLLUTION":PRINTSPC(12)" GORGE ":RETURN 3500 REM WHC 92 04 07